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El sistema más sabio 


PHILIPS introduce en España 
el HOMECOMPUTER más sabio, 
el sistema MSX, nuevo estandard 
mundial. 

¡Con cuanta sabiduría se ha 
pensado en cada una de sus 
características! 

Con el PHILIPS MSX puede 
realizar mil combinaciones 
de elementos: monitores, 
impresoras, floppys, programas 
educativos, de juegos y 
aplicaciones profesionales, gracias 
a su compatibilidad total tanto 
en hardware como en software. 

El PHILIPS MSX está tan 
sabiamente diseñado que Vd. 
puede elegir entre conectarlo al 
televisor de su casa, o a un monitor 
monocromo o de color. 

De igual modo puede utilizar 
como unidad de almacenamiento 
de memoria un cassette normal 
o un Floppy Disc del sistema 
MSX. 


¡Y qué potencia tiene el 
PHILIPS MSX! 

Es tanta, que si lo utilizamos 
con un Floppy Disc y junto a 
MSX-DOS, es compatible con 
sistemas de tipo profesional y de 
precio mucho más elevado. 

Y aquí no acaba la sabiduría 
con que ha sido creado el 
PHILIPS-MSX. 

Puede hacerlo crecer según 
sus necesidades, desde un 
sencillo ordenador doméstico, 
con el lenguaje Basic más 
potente del mercado, hasta un 
sistema de tipo profesional que 
puede llegar a una capacidad 
máxima de 1.024 K bytes. 

PHILIPS MSX. Nunca se le 
quedará pequeño, nunca se 
le quedará anticuado. 

PHILIPS MSX, creado como un 
equipo atractivo, fácil 
de usar y muy asequible de 
comprar. 
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El amigo sabio de la familia. 


¡PHILIPS MSX, sin duda, el 
sistema más sabio! 

MSX-DOS es compatible con 
CP/M™ y posee la misma 
estructura de ficheros que 
MS-DOS™ 

Todos los sistemas MSX son 
compatibles entre sí. 

MSX, MSX-DOS™ y MS-DOS™ son marcas 
registradas de Microsof Corp. 

CP/M™ es una marca registrada de Digital 
Research. 


O Si desea algún tipo de 

información relacionada con 
el campo del HOMECOMPUTER, 
estamos a su disposición en el teléfono 

(91) 413 22 46 

(""Desearía recibir más información I 

sobre el PHILIPS MSX. | 

Nombre 

Apellidos | 

Domicilio , 


PHILIPS IBERICA S.A.E. 
Apartado de Correos 50.800 
28080 MADRID 


PHILIPS MSX 

HOMECOMPUTER 

SYSTEM 

ESPECIFICACIONES 

TECNICAS 

Consola VG 8010 

Sistema MSX. 

Teclado: Teclado con disposición y separación es- 
tilo profesional de 72 teclas. 

Memoria: 32 K ROM, 48 K RAM (incluyendo 16 
K RAM de vídeo). 

Interconexiones incorporadas: Salida de RF, Sali- 
da Monitor, interface audio-cassette, 2 conectores 
para controles manuales, 2 ranuras para cartuchos. 

Consola VG 8020 

Sistema MSX. 

Teclado: De recorrido completo, profesional con 
73 tedas. 

Memoria: 32 K ROM, 80 K RAM (incluyendo 16 
K RAM de vídeo). 

Interconexiones incorporadas: Salida de RF, Sali- 
da Monitor, Interface audio-cassette, 2 conecto- 
res para controles manuales, 2 ranuras para car- 
tuchos, interface para impresora. 

Características comunes 
VG 8Q10/VG 8020 

Conjuntos de caracteres 253 alfanuméricos y grá- 
ficos (incluye la ñ). 

Procesadores: Principal Z 80 A, Audio AY-3-8910, 
Vídeo TMS 9929 A. 

Lenguaje BASIC MSX: 130 instrucciones incorpo- 
rando macrocomandos y sprites. 

Posibilidad máxima de expansión de memoria 
1M. byte. 

Editor de pantalla. 

Utilizando MSX-DQS™ es compatible con 
CP/M™ y tiene la misma estructura de ficheros 
que MS-DOS™ 





Queridos lectores: 

Los programas que hemos diseñado para este número los hemos enfocado 
en dos vertientes. Una educacional, para que cada vez conozcas mejor tu apara- 
to, y la ptra para que al mismo tiempo te resulte divertido. 

Por lo que respecta a la revista, como verás, algunos de los programas los he- 
mos listado. Esto es porque suponemos que el lector tiene ya cierto conocimien- 
to de las órdenes principales de su aparato. Intentamos de esta forma que el 
usuario se familiarice, mejore sus conocimientos y al mismo tiempo se divierta. 

Ninguno de los programas es excesivamente largo. Ya iremos ampliándolos 
progresivamente, 

También hemos intentado que la mayoría de ellos tengan un elemento de jue- 
go, para animaros a competir con la máquina. 

Por otra parte, cuentas con una página de bibliografía, con las últimas nove- 
dades del mercado editorial sobre tu ordenador. 

Hasta el próximo mes; que te diviertas. 


Monitor msm&aromo 
BM 7552 y BM 7502 

Tubo de Imagen: Pantalla-de alta resolución de 
12”, antidesiumbrante, Fósforo P 42. 

Ancho de Banda: 20 MHZ (a —3 dB). 
Resolución: Horizontal: 920 líneas en el centro. 
Vertical: 285 pixels. 

Caracteres en pantalla: '80x25 (2.000) 

Salida Sonora: 0,3 W con 5% de distorsión. 

h 

Impresora de matriz 

VW 0010, 40 columnas y VW 0020 de 80 colum- 
nas. 

Método impresión: Matriz de puntos por impactos. 
Matriz de carácter de 8x8 puntos. 

Paso de caracteres i 0,5 cpi y 10 cpi, respectiva- 
mente. 

Velocidad de impresión 35 cps y 37 cps respecti- 
vamente. 

Mecanismo PF alimentación por fricción y trac- 
ción. 

Próximos fesnaamsíaitos 
Monitor de color 14”. 

Floppy disc 3W' 500 K sin formatear (360 K 
formateado). 


Edita: Editorial GTS, S. A. Bailén, 20, 1 .° 
izq. 28005 MADRID. Tel. 266 66 01 -02. 
Dirección: Eugenio Garrido. 

Secretaria Redacción: Margarita Ron- 
cero. 

Colaboradores: Fernando Roncero, A. 
Espíldora, G. Sáez, J. L. Ramírez. 
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Negrete. 
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Fotocomposición: Herrata , S. A. Alejan- 
dro González, 7. 28028 MADRID. 
Imprime: Gráficas Futura. 

Producción cassettes: Iberofón. 
Distribuye: R.B.A. Promotora de Edicio- 
nes, S. A. Trav. de Gracia, 56. Atico 
1. a . Tfno.: 200 82 56. 
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Software 

Disponibles en MSX más de 150 títulos entre apli- 
caciones, utilidades, educativos y juegos en so- 
porte ROM s , cassette y floppy de 3W\ 



CURSO DE BASIC 3 


En este tema vamos' a ver todo lo relacionado con la instrucción 
PRÍNT. Esta sentencia es una de las más útiles en la programación 
BASIC. 

Se utiliza, normalmente, para la representación de constantes y 
variables en pantalla; otros usos importantes pueden ser el envío de 
información a los demás periféricos como la impresora, el cassette o 
la unidad de disco. 

En esta ocasión se explica su funcionamiento y todas aquellas 
funciones relacionadas con SPC, TAB y los separadores. 


10 ’ CURSO DE BASIC. BAS-3 
20 ’ 

30 COLORO, 1,1: 0PEN"GRP: "ASM: SCREEN2, 1 : 60SUB9000 

40 beep: keyoff: screeno : widthao 

50 PLAY ” SI M500T255L64 " : F0RZ=1T021 : K=0: READES 
55 IFE$=" "THEN80 

60 F0RX=40TGKSTEP- 1 : LOCATEX , Z : PLAY " N=X ¡ 11 

70 F0RT = 1T050:NEXT:PRINTMID^(E^, 1 , 40-P0S ( 0 ) ) :NEXT:K=K + LEN<EíS) +1 
30 IFPLAY ( 1 ) =-lTHEN80ELSENEXT 
90 IFINKEY$=“ “THEN90ELSECLS 

100 C$=CHR$ ( 34 ) : LOCATE 4 , 2 : PRINT" CON PRINT PINTAMOS EN LA PANTALLA: ": L0CATE2 , 5 : PR 
I NT” CONSTANTES NUMERICAS LOCATE 0,8: PRINT" PRINT C*J "012345" i C$: LOCATEO, 10: PRI 
NT " LO QUE SE REPRESENTA COMO: " : PR I NT : PR I NT " 012345” : G0SUB9500 

110 L0CATE2 , 5 : PRINT " CONST ANTES ALFANUMER ICAS ": LOCATE 0,8: PRINT “PRINT “ j C$> "HOLA" 
J C$: LOCATEO, 10: PRINT” LO QUE SE REPRESENTA COMO: “ : PRINT: PRINT"HOLA" : G0SUB9500 
120 L0CATE2,5:PRINT"VARIABLES NUMERICAS" : PRINT: PRINT"SI A= 1 23 " : LOC ATEO , I O : PR I NT " 
Y TECLEAMOS: PRINT A " : LOC ATEO , 1 2 : PR INT " APARECERA EN PANTALLA: " : PRINT : PRINT " 123 
" : PRINT : PRINT "OBSERVA QUE LOS NUMEROS SE REPRESENTAN CON ESPACIOS A DERECHA E I 
ZGUIERDA" 

130 G0SUB9550:L0CATE4,2:PRINT W SEPARAD0RES QUE AFECTAN A PRINT : " : L0CATE2 , 5 : PR INT " 
EL SEPARADOR VACIO O NULO ES <;>“:L0CATE 0,8:PRINT"SI A NUESTRO MSX LE DECIMOS " 

: locateo, io:print ,4 print " ;c$; "hola” ;c*; " ; " ; c*; "buenos días" ; c*:print 

140 PRINT" APARECERA EN PANTALLA :": PR I NT : PRINT " HOLABUENOS DIAS" : PRINT : PRINT "P0RQU 
E | NO SEPARA NI CONSTANTES NI VA- RIABLES ALFANUMERICAS. " : G0SUB9500 
150 L0CATE2 , 5 : PRINT "EL OTRO SEPARADOR ES <»>": LOCATE O, 8: PRINT^SI TECLEAMOS ": LOC 
ATEO, 12: PRINT " PRINT " ; C$¡ "HOLA" ;C$; ” , “ ¡C*; “BUENOS DIAS” iCS:PRINIT 

160 PRINT "PINTARA EN PANTALLA: " : PRINT: PRINT"HOLA" , "BUENOS DIAS” : PRINT: PRINT "PART 
E LA PANTALLA EN DOS PARTES ": G0SUB9500 

170 LOCATEO, 5: PRINT"COMO LOS NUMEROS SE REPRESENTAN DEJANDO ESPACIOS EL SEPARADO 
R J NO JUNTA UNOS NUMEROS CON OTROS. ": LOCATE O, 10: PRINT”SI A=123 Y B=456" 

180 A=123: B=456: PRINT: PRINT” PRINT Aj B PINTARA: PRINT: PRINTA; B: PRINT: PRINT”PRINT 
A , B PINTARA: " : PRINT : PRINTA, B: G0SUB9550 

190 L0CATE2 , 2 : PRINT" TABULADO Y ESPACIADO CON PRINT : u I LOCATEO , 5: PRINT " ESTO SE REA 









LIZA CON DOS FUNCIONES" : PRINT: PRINT "EL TABULADO LO REALIZA LA FUNCION T AB < N ) DOND 
E N ES EL NUMERO DE COLUMNA DE LA PANTALLA DONDE SE COLOCARA EL PRIMER CARA 
CTER DE UNA CADENA" 

200 PRINT : PRINT"EL ESPACIADO LO REALIZA SPC(M) DONDE M ES EL NUMERO DE ESPACIOS 
PARA COLOCAR LA SIGUIENTE CADENA." 

210 PRINT: PRINT"SI LOS NUMEROS N O M SON MAYORES QUE LA ANCHURA DE LA PANTALLA P 
RINT SALTARA A LA LINEA SI GU I ENTE . " : G0SUB9550 

220 L0CATE2, 3: PRINT" TABULADO: FUNCION TAB (N> " : LOCATEO, 5: PRINT"SI TECLEAMOS PRIN 
T";cs¡; "HOLA " ; c$; ";TAB(30) ; ";cs; "adiós" ; c$: print : print "PRINT pintara: ":print:prin 
T " HOLA " í TAB < 30 ) J "ADIOS" 

230 PRINT: PRINT"DE FORMA QUE LA A DE ADIOS ESTA EN LA COLUMNA 30 DE LA PANTALL 
A. " : GGSUB9550 

240 LOCATE 2 , 3: PRINT " ESPACIADO: FUNCION SPC'(M) " : LOCATEO, 5: PRINT" SI TECLEAMOS PRIN 
T" > C$; "HOLA" ; C$i " i SPC (30) ; "JC*; "ADIOS" i c$: PRINT: PRINT "PRINT PINTARA: " :PRINT: PRIN 
T " HOLA " J SPC (30) J "ADIOS" 

250 PRINT: PRINT"DE FORMA QUE LA A DE ADIOS ESTA SEPARADADE HOLA EN 30 ESPACIOS, 
ES DECIR, EN LA COLUMNA 34 . " : G0SUB9550 

2Ó0 LOCATEO, 1 : PR I NT " HASTA AHORA HEMOS VISTO LA SEPARACION HORIZONTAL EN LA PAN 
TALLA. SI QUEREMOS SEPARAR EN VERTICAL PODEMOS UTILIZAR PRINT VACIOS, ES DEC 
IR, SIN NADA DETRAS. " :PRINT: PRINT"SI DECIMOS: " ; PRINT "PRINT " » C$; "HOLA" ; C$j " : PRINT 
: PRINT" ;C$> 

270 PRINT "ADIOS" ; C$: PRINT: PRINT" APARECERA: " : PR I NT : PRINT : PR I NT " HOLA " : PRINT: PRINT" 
ADIOS" : PRINT: PRINT" ADIOS ESTA 2 FILAS MAS ABAJO QUE HOLA PORQUE EL PRINT QUE H 
AY ENTRE LAS DOS CADENAS A DEJADO UNA LIBRE ": G0SUB9550 •. 

280 LOCATEO, l:PRINT"EL CONTROL COMPLETO DE LA REPRESENTAC IONEN PANTALLA CON PRIN 
T SE CONSIGUE CON UNA INSTRUCCION DISTINTA QUE INDICA EN QUE CASILLA DE LA 

PANTALLA, TANTO HORIZONTAL COMO VERTICAL, VA A PINTARSE LA CADENA" 

290 PRINT: PRINT"ESTA IN.TRUCCION ES LOCATE X,Y DONDE X ESEL NUMERO DE COLUMNA E Y 
EL DE FILA" : PRINT: PRINT"UN EJEMPLO ES: ": PRINT : PRINT "LOCATE 16, 1 ó : PRINT " » C$ j " HOL 
A" ; c$: PRINT: PRINT "QUE HACE: " : LOCATE 16, 1 ó : PR I NT " HOLA " 

300 PRINT: PRINT"LA H DE HOLA ESTA EN LA COLUMNA 16, FILA16 DE LA PANTALLA ": GOSUB 
9550 

310 PRINT " AHORA ABANDONARAS EL PROGRAMA PARA QUE PUEDAS PRACTICAR CON PRINT, CU 
ANDO QUIERAS CARGAR EL SIGUIENTE PROGRAMA PULSA LA TECLA DE FUNCION Fl": 

KEY 1 , " G0T0500" +CHR$ ( 13) : G0SUB?550: CLS : END 

500 C0L0R15,4,4:CLS:CLEAR:L0CATE4, lo: PRINT"PARA EL SIGUIENTE PROGRAMA" :L0CATE4, 1 
2.* PRINT "PULSA PLAY EN EL CASSETTE " : KEY 1 , "color " : CLOAD 

9000 DIMC ( 20 , 1 ) : RE STORE 91 00 : FORZ= 1 T020 : READE$ , C ( Z , O ) ,C(Z,1) : LINE < O , O > - ( 10, 10 > ,1, 
BF : DRAW" BMO , O" : PRINTPxl, E$: T$= " " : FORX=0T07 : TS=T$+CHR$ ( VPEEK ( X ) ) : NEXT : SPR I TES ( Z ) =T 
$: NEXT: COLORIS 

9010 S0UND1 ,0:F0RZ=1T020: XI=INT(RND( 1)*241 ) : YI=RND ( -TIME) : YI=32*(YI< .5) + (-191)*< 
YI >=. 5) : S0UND3 , 8 : X= ( C ( Z , O ) -XI ) /ABS (C (Z, 1 ) -YI ) : FORY=YITOC (Z, 1 ) STEPSGN ( C (Z, 1 ) -YI ) : 
SOUNDO, ABS< Y) :PUTSPRITEZ, (XI, Y) , i 5 , Z : X I=XI +X : NEXT : NEXT 

9020 F0RZ = 2T013: PLAY " N=Z J " : LINE (0,0) - (255, 191 ) , Z , BF : NEXT : F0RZ=1 T025 : C = INT ( RND ( 1 ) 
•X15+.5) : IFC — 1 3THÉNC= 1 

9030 S0UND1 , C: SOUNDO, 100: S0UND8, 8: F0RX=1T020: PUTSPRITEX, (C(X,0) ,C(X, 1) ) ,C,X:NEXT 
: NEXT : SOUNDS , o : ERASEC : RETURN 

9100 DATAC,48,0,U, 68 , 1 O , R , 88 , 20 , S , 1 08 , 30 , O , 1 28 , 40 , D , 1 68 , 50 , E , 188 , 60 , B , 38 , 100, A, 5 
8, 1 1 0, S, 78, 1 20, I, 98, 130, C, 1 18, 140, M, 158, 150, S, 178, 160 ,X, 198, i 70, T, 68, 70, E, 88, 80, 
M, 103, 90, A, 128, 100, 3, 168, 100 

9200 DAT A.CURSO DE BASIC , , TEMA 3 , , EN ESTE TEMA VAMOS A VER TODO LO , RELACIONADO 
CON LA INSTRUCCION PRINT. , , LA INSTRUCCION PRINT ES UNA DE LAS MAS , UTILES EN P 
ROGRAMAC ION BASIC. ,, 

9210 DATASE UTILIZA NORMALMENTE PARA REPRESENTAR , CONSTANTES Y VARIABLES EN PANT 
ALLA. ,, OTROS USOS IMPORTANTES PUEDEN SER EL , ENVIO DE INFORMACION A LOS DEMAS P 
ERI- , "FERICOS COMO LA IMPRESORA, EL CASSETTE ",0 LA UNIDAD DE DISCO. , 

9220 DATA," PULSA . CUALQU I ER TECLA PARA CONTINUAR " 

9500 BEEP:LOCATE 2, 21 : PRINT" PULSA CUALQUIER TECLA PARA CONTINUAR" 

9510 IFINKEY$=" "THEN9510 

9520 J*=STRING$<40, 32) : F0RY=3T021 : LOCATEO ,Y:PRINTJ$: NEXT: RETURN 
9550 BEEP: LOCATE 2, 21 : PRINT"PULSA CUALQUIER TECLA PARA CONTINUAR" 

9560 IFINKEY$= M "THEN9560ELSECLS: RETURN 
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MOSQUITO 


En MOSQUITO tendrás que sobrevivir en una habitación, que 
es un ambiente muy hostil para los insectos de esa especie. Para te- 
ner energía y poder moverte comerás de los frutos que hay en la 
habitación, pero con mucho cuidado de no tropezar con los insecti- 
cidas, ni con el arácnido que tratará de eliminarte. La salida, que es 
una ventana, se abre (en blanco) cuando te hayas comido todos los 
frutos de la habitación. 

Podrás elegir las teclas con las que se moverá el mosquito por 
toda la pantalla. En todo momento estarás informado de la energía 
que te queda, los mosquitos vivos con que cuentas, los puntos y la 
habitación en que té encuentras. Cuando mayor sea el número de 
habitación, más rápido será el movimiento de la araña. 


10 » <<< MOSQUITO >>> 

20 ’ 

30 SCREENO : WIDTH39 ¡COLORIO, 1 , II KEYQFF i SCREENO » » 0 : OPEN " GRP : "ASM 
35 ZN=i:MS=5 

40 REST0RE9000: F0RZ=1TG20: READE$¡ LOCATEO, Z: PRINTE*: BEEP: NEXT 
50 IFINKEY$= U "THEN50ELSECLS 

60 CLS: L0CATE3, 12: PRINT"ELECCI0N DE LAS TECLAS DE JUEGO: " : L0CATE5, 18: PRINT" (PARA 
SUBIR?" 

70 L*=INKEY*: IFL*=" " 0RL*< CHR* ( 33 ) ANDL*< >CHR* (30) THEN70ELSE IFL*=CHR* (30) THENS$=LS 
: L*=" CURSOR ARRIBA"ELSES$=L$ 

75 LOCATE i , 1 : PRINT “SUBIR: " ¡ L$ 

80 L0CATE5, 18: PRINT" (PARA BAJAR?" 

90 L$=INKEY$: IFL$= " "0RL$< CHR$ (33) ANDL$< >CHR$ (31 ) THEN90ELSEIFL$=CHR$ (31 ) THENB$-L$ 
:L*f=" CURSOR ABAJO "ELSEBS=L* 

95 L0CATE1 , 3: PRINT"BAJAR: "¡L* 

100 L0CATE5, 18: PRINT" (PARA IR A LA DERECHA?" 

110 L$=INKEY$: IFL$=" " 0RL$< CHR$ ( 33 > ANDLSK >CHR$ (28) THEN1 10ELSEIFL$»=CHR3i í 28) THENDífc- 
L$ ! L$= " CURSOR A LA DERECHA " ELSED$=L$ 

115 LOCATEI , 5: PRINT "DERECHA: " 5 L$ 

120 L0CATE5, 18:PRINT" (PARA IR A LA IZQUIERDA?" 

130 L$=INKEY$: IFL$=" “ ORL$< CHR$ ( 33 ) ANDLS< >CHR$ (29 ) THEN130ELSEIFL$=CHR$ (29) THENUÜ- 
L$ : L$= " CURSOR A LA IZQUIERDA"ELSEI$=L$ 

135 LOCATEI ,7:PRINT" izquierda: ";l* 

140 L0CATE5, 18: PRINTSTRING$ (30, 32) : L0CATE5, 18: PRINT "ESTAS CONFORME (S/N)" 

150 L$=INKEY$: IFL$= " N " ORL$= “ n " THENCLS : GOT060ELSEIFL$< >"S"ANDL$< >"s"THEN150 
160 SCREEN2,0: G0SUB9100: G0SUB9150 

170 LINE<0,0)-<255,191) , 5 , B : LI NE < O , O ) - < 255 , 20 ) , 5, BF: COLORIS*. G0SUB8000: G0SUB8100: 

G0SUB8200: G0SUB8300 

180 K=RND ( -TIME) :F0RZ=1T0TM 

190 XS (Z) =INT (RND ( 1 ) *33) : XS (Z) =XS (Z) *8: YS (Z) =INT (RND ( 1 ) *23 + 2) : YS (Z) -YS <Z) *8 
200 K=POINT (XS (Z) +4 , YS ( Z ) +4 ) : IFK< >1THEN190 

210 DRAW " BM=XS ( Z ) i ,=YS(Z) ; C4R7D6L5U4L2U2" : PAINT (XS (Z) +4, YS (Z) +4) ,4:NEXT 
220 FORZ=lTOiO 

230 XM (Z) =INT (RND ( 1 )*33) : XM (Z) =XM (Z) *8: YM(Z) =INT ( RND ( 1 ) *20+4 ) : YM ( Z) -YM ( Z ) *8-3 
240 K=POINT (XM (Z) +3, YM (Z) ) : IFK< >1THEN230 

250 X=XM ( Z ) : Y=YM(Z) : DRAW"BM=Xf , =Y J C6D1F3E3U1H3D2H1G2 " : PAINT (X+3, Y+2) ,6:NEXT 
260 XV=INT (RND ( 1 ) *33) : XV=XV*8 : YV=INT (RND ( 1 ) *21+3) : YV=YV*8+1 
270 K“POINT (X0+4,YV+4) : IFK< >1THEN260 
280 LINE (XV, YV) - (XV+7, YV + 7) , 2,BF 

290 XA=INT (RND ( 1 ) *33) : XA=XA*8: YA=INT (RND ( 1 ) *23+2) : YA-YA*8 
300 K=POINT (XA + 4, YA + 4) : IFK< >1THEN290 
310 PUTSPRITEO, (XA, YA) , 3, O 

320 XM= I NT (RND ( 1 ) *33 ) : XM=XM*8: YM=INT (RND ( 1 ) *23+2) : YM=YM*8 
330 K=POINT ( XM + 4 , YM + 4) : IFK< >1THEN320 

340 DR$="D" : G0SUB1200 . 


6 


345 ONSPRITE60SUB1590 : SPRITEON 
350 J=01L^=INKEY^ 

360 IFL$=S$THENG0SUB1000: J=i 
370 IFL*=BSTHENG0SUB1100: J=i 
380 IFL*=D*THENG0SUB1200: J=i 
390 IFL$-I$THENG0SUB1300: J=I 
400 IFJ=1THEN1400 

4 i O SOUNDO , 220 í SOUND 1,3“ S0UND2 , 255: S0UND3, 5: S0UND8,5: IFJ=1THENF0RT-1T010 : NEXTí SO 
UND8, ó 

420 K=RND ( -TIME) + « 1S IFK< ZN/ 10THEN1500 
430 G0T0350 

Í000 IFYM >28THENYM=YM-8 : G0SUB1350 
1010 RETURN 

1100 IFYM< i 77THENYM-YM+3 : G0SUB1350 
1110 RETURN 

1200 IFXM<247THENXM=XM+8 

1205 IFDR$=" 1 11 THENKP=2 : 6QSUBX380 

1210 DR$= "D“ : G0SUB1350: RETURN 

1300 IFXM>7THENXM=XM-8:DR$="I" IG0SUB1350 

1305 IFDR$=“ I "THENKP=1 : G0SUB1330 

1310 DR$= “ I " : G0SUB1350 : RETURN 

1350 IFDR < 3¡="I"THENSP=2ELSESP=1 

1360 PUTSPRITESP, ( XM , YM ), 1 O , SP : RETURN 

1380 PUTSPR ITEKP , (-8,191), , KP: RETURN 

1400 TC=POINT ( XM+4 , YM + 4 > 

1410 IFTC-6THENLINE (XM, YM) - (XM+7, YM+9) , 1 , BF: BEEP : E=E+100: G0SUB8000: MN=MN-i 
1420 IFTC=4THEN1Ó00 
1430 IFTC=15THEN2000 

1440 E=E-i0íG0SUB8000: IFE<=0THEN1600 
1450 GOT0410 

1500 IFXM< XATHENXA=XA-4ELSEIFXM >XATHENXA=XA+4 
1510 IFYM< YATHENYA=YA-4ELSEIFYM>YATHENYA=YA + 4 
1520 PUTSPRITEO , (XA, YA) , ,0¡ G0T0350 
1590 RETURN1 600 

1600 SPRITEOFF: F0RZ-1T03: SOUNDI , 1 : S0UND8, 5: F0RT=0T0255: SOUNDO, T: NEXTí NEXTí S0UND8 
,0 

1610 MS=MS-1 í G0SUB8300: IFMS< 1THEN1690 

UT$ ( 1 ) í I FL$= " N “ ORL$~ " n ? THEN 1 700ELSE I FL** ” S * ORL*= “ e “ THENGQSUB9 1 50 í GOTO 1 60ELSE 1 620 
1690 LINE (O, O) - (255, 191 ) , 1 , BF: DRAW"BM10, 120“ :PRINTPii, “HAN MUERTO TODOS TUS MOSQU 
ITOS " í FORT— 1T015: FORS=100T01STEP-1 í SOUNDO, Sí S0UND1 , Tí S0UND8, 4í NEXTí NEXT 
1700 COLORIS, 4, 4 í SCREENOí L0CATE3 , 10 : PRINT " PARA OTRA PARTIDA PULSA LA TECLA P":LO 
CATE3, 12: PRINT "PARA OTRO PROGRAMA PULSA LA TECLA F“íS0UND8,O 

1710 R*=INKEY$: IFR$= " " THEN171 OELSEIFR$= " P “ ORRS* “ p “ THENRUNELSEIFR*< > " F " ANDRSK > " f " 
THEN1710 

1720 CLOSEPtl í CLEARí COLOR 15, 4,4í SCREENO, , 1 í L0CATE4, 10 í PRINT" PARA EL SIGUIENTE PRO 
GRAMA L0CATE4, 12: PRINT“PULSA PLAY EN EL CASSETTE" 

1730 CLOAD 

2000 F0RZ=1T0TM:LINE(XS(Z) , YS(Z) ) - (XS(Z) +7, YS(Z) +7) , 1 , BFí PT=PT+10: PLAY" T255L64N= 
z; " : G0SUB8100: FQRT=1T025: NEXTT, Zl ZN=ZN+1 : GOSUB9150: GOTO 160 

8000 LINE (90,0) - ( 125, 10) , 5, BF: DRAWBMIO, i " : PRINTM , USING "ENERGIA: PtfcPtfc" J E: IFMN=0 
THENLINE (XV, YV) - (XV+7, YV+7) , 15, BF 
8010 RETURN 

8100 LINE (202, O) - (255, 10) , 5 , BF : DRAW " BM1 30 , 1 " í PRINTM , USING" PUNTOS: PiPiPiRF." i PT : RE 
TURN 

8200 LINE (218, 11) - (242,20) , 5 , BF : DRAW" BM 130 ,11": PRINTM , USING " HABITACION: PtftPt" i ZN: 
RETURN 

3300 LINE< 105, 11) -(126,20) , 5 , BF : DRAW " BM1 O , 1 1 ": PRINTM , USING “ MOSQUITOS : fc“;MS:RE 
TURN 

9000 DATA" M O S Q U I T O",, “En MOSQUITO tendr s que sobrevivir en", “u 

na habitaci"n, que es un ambiente muy", hostil para los de tu especie.,," Para t 
ener energía comer s de 1 os" ," frutos que hay en la habitad “n, pero" 

9010 DATAcon dudado de no tropezar con los, insect icidas ni con el aracnido que, 
tratar n de eliminarte.,," Por fin podr s salir por la ventana" , cuando te hayas 
comido todos los frutos, de la hab i taci ■ n . , , H El movimiento del mosquito se rea 
1 iza" 


9020 DAJAcon las teclas que tu elijas.,," PULSA CUALQUIER TECLA PAF.’A CONTINUAR" 
9100 DATA99, 50, 30, 30, 47, 255, 42, 21, 198,76, 120, 120 , 244 , 255 , 84 , i 68 , 24 , 60 , 102,255, 18 
9,165,165,165 

9110 REST0RE9100: F0RSP=2T00STEP-1 : T*=“ “ : F0RX*=0T07: RE ADE: T$=T$+CHR$ (E) : NEXT : SPRIT 
E* (SP) =T$: NEXTt RETURN 

9150 E=500: MN=10: TM-10+ZN*5: XS ( 1 ) =0: YS< i ) = 0 : ERASEXS, YS: DIMXS (TM) ,YS(TM) : RETURN 





00 




EB8S8 KBBW BSSS89 

jgSSESSÍ Qs£ui tXuSSS 


TRIANGULO MAGICO 


¿Recuerdas el cubo mágico? Aquí te presentamos un nuevo soli- 
tario en apariencia mucho más sencillo, pero no te fíes porque pue- 
de llegar a exasperarte. 

Sobre los lados de un triángulo con cuatro fichas por lado tienes 
las 9 primeras letras del alfabeto; éstas se mueven empujando desde 
los vértices. Por ejemplo, si en el lado derecho hay: ABCD y pulsas 
1, te quedará: DABC, y si pulsas 2, te quedará: BCDA. 

Es decir, las tres primeras letras se corren un lugar y la última 
salta al otro extremo. 

Cuando quieras cortar el programa, pulsa M y te aparecerá el 
MENU. 


2 KEY OFF: SCREENOí WIDTH38: COLOR 1 , 15, 15¡ RESTORE 10000: FOR 1=0 TO 21 : READ XiSÍLOCA 
TE 0,1: PR I NTX$ : NEXT I 
4 X*=INKEY$: IF X*=“" THEN 4 

10 S0UND7 , VAL ( * IcB* + *001 101 10 “ ) : SCREEN2 : OPEN “ GRP : "ASPil 

SO CLS: NM=0: DRAW'BM 24, 56" : PRINTM , M 1 : PROBANDO" :DRAW"BM24, 66" : PRINTM , "2: NIVEL I 
":DRAW"BM24, 76": PRINTM, -3: NIVEL II ":DRAW"BM24, 86-: PRINTM, "4: FINALIZAR" 

52 X$=INKEY*: IFX*< "1" OR X*>*4" THEN 52 

54 CLS:IF X*="4 M THEN 5000 ELSE 100 

100 60SUB 900:GOSUB1000:GOSUBí100:GOSUB1200 

102 IF X$="l" THEN 108 ELSE IF XS="2" THEN 200 ELSE 210 

108 PS= M " 

110 IF P$=L* THEN 2000 

112 X$=INKEY*: IF XSP= MH THEN 112 ELSE IF X$="M" OR X*="m" THEN 50 ELSE IF X*<“i" 
OR X*>"6" THEN 112 ELSE XX=VAL(XS) 

115 GOSUB 120: GOTO 110 

120 NM=NM+ 1 : LINE (160, 152) - (200, 160) , 15, BF: DRAWBM160, 152“ : PRINTM , NM 

125 ON XX GOSUB 1500,1510,1520,1530,1540,1550 

130 IF XX=1 OR XX=4 THEN GOSUB 1000 

132 IF XX=3 OR XX=6 THEN GOSUB 1100 

134 IF XX=2 OR XX=5 THEN GOSUB 1200 

140 RETURN 

200 MO=INT <RND< 1 )*8+3) : GOTO 250 
210 MO=INT(RND (2) *20+15) : GOTO 250 

250 P*=L$: LINE (O, 163) - (256, 192) , 12, BF : FOR K=i TO MO 

252 XX«INT (RND (3) *5+1 í I IF ÍXY°1 AND XX=4) OR (XY=4 AND XX=i) 0R-(XY=3 AND XX=6) 
OR (XY«6 AND XX=3) OR (XY=5 AND XX=2) OR (XY=2 AND XX=5) THEN 252 ELSE XY=XX 
254 GOSUB 125 

256 NEXTK: DRAW"BM28, 176" : PRINTM , "NUMERO DE MOVIMIENTOS: " \ MO: GOTO 110 

900 L$= " ABCDEFGHI - : LINE ( 128, 13) - (204,128) ,4: LINE (128, 13) - (53, 127) ,4: LINE (204, 128 

) - <53, 128) ,4:PAINT (128, 21), 4 

905 DRAW " bml 10, 1 6 M : PRINTP» 1 , " 1 2 " : DRAW " bm50 , 109 " : PRINTM , " 6 3" 

: DRAW“bm61 , 135" : PRINTM , “5 4" 

907 DRAW"bro36, 8“ : PRINTM , " A" : DRAW " BM28 , 16": PRINTM, “I B " : DRAW "BM20, 24 “ : PRINTM , “ 
H C " : DRAW"BM12, 32" : PRINTM , "G F E D " 

910 COLOR 1 O : FOR 1=0 TO 2: CIRCLE ( 128+16*1 , 40+24*1 ), 9: PAINT ( 128+16*1 , 40+24*1 ), 10: 
CIRCLE (176-32*1, 112) , 9 : PAI NT ( 176-32*1 , 112) , 10 : CIRCLE (80+16*1 , 1 12-24*1 ) ,9:PAINT< 
80+16*1, 112-24*1) , 10: NEXTI .'COLOR 1 

920 LINE (72, 152) - (200, 160) , 15, BF: DRAW M BM73, 152" : PRINTM , "MOVIMIENTO: O" *. RETURN 
1000 PLAY " S8L804E " : FOR 1=0 TO 3 : X=1 25+ 1 6*1 *. Y=35 +24*I *. L I NE < X , Y ) - ( X + 8 , Y+ 10 ) , 10 , BF : 
X=X+1 : Y=Y+1 : DRAW"BM=Xi ,=YJ " : PRINTM , MID$ ( L$ ,1+1,1) : : NEXTI : RETURN 

1100 PL A Y " S8LB04A " : FOR 1=0 TO 3 : X= 173-32*1 : Y=1 07 : LINE ( X , Y ) - ( X+8, Y+ 1 O ) , 10 , BF : X=X+ 
1 : Y=Y+1 : DRAW"BM=Xi ,=Y; “: PRINTM , MID* <L$, 1+4,1) : NEXT I : RETURN 

1200 PLAY "S8L804C".: FOR 1=0 TO 3 : X=77 + 16*1 : Y=1 07-24*1 : L INE ( X , Y ) - ( X + 8 , Y + 10 ) , 1 0 , BF : 
X=X+1 : Y = Y+1 : DRAW“BM=XJ , =Y > : PRINTM , MID^ (L$, 1+7, 1) : NEXTI : DRAW " bml 26 , 36" : PRINTM , 

LEFT*<L$, 1 ): RETURN 

1500 L$=MID* (L*, 4, 1 ) +MID$ ( L$, 1 , 3 ) +RIGHT$ ( L$, 5 ) : RETURN 

1510 L*=MID*(L$, 7, 1)+MID*(L*;,2,5)+MID*(L$,8,2)+MID*<L*, 1,1) : RETURN 

1520 L*=MID$ (L$, 1 , 3) +MID$ <LS¡, 7, 1 ) +MID$ (LS¿, 4, 3) +RIGHT* ( L3¡, 2 ) : RETURN 


8 



1530 L$=MID*<LS,2,3)+LEFT*<LS, 1 > +RIGHT5 <L$, 5) : RETURN 

1540 L*=RIGHT$(L*, 1 ) +MIDS: <L$, 2, 5) +LEFTS ( L*, i) *MIDS(LS, 7, 2) ¡RETURN 

1550 L*=LEFT*(L$,3)+MID:$<LS,5,3> + M ID* < L*, 4 , 1 ) +R IGHT* ( LS , 2 ) ¡RETURN 

2000 L I NE ( 0 , 80 ) -(256, 100) , 5, BF¡ DRAW"bm96, 84“ ¡ PRINTfcl , H ACABASTE " ¡ A*=" 01L8CEFDGB02 
L4C03L8CEFDGB04L4C04L4CEFDGB05L4C " ¡ PLAY “ S12 " +A*+ " SI 1 “ +A* 

2002 IF PLAY ( 1 ) =- 1 THEN 2002 ELSE 50 

5000 CLEAR: COLORIS, 4, 4¡SCREEN0¡ LOCATE 3, 10¡ PRINT"PULSA PLAY PARA PROXIMO PROGRAM 


5010 CLOAD 

10000 DATA ■ TRIANGULO MAGICO" (Recuerdas el cubo m gico?. Aquí te", 

"presento un nuevo solitario, en apa- " , " r ienc i a m s sencillo, pero no te fies"," 
puede llegar a exasperarte. " , , 

10002 DATA "Sobre los lados de un tri ngulo tie-","nes las 9 primeras letras del 
al f abe- " , " to , estas se mueven empujando desde", "los vórtices. Por ejemplo si en 
el la-", "do derecho hay¡ ABCD" 

10004 DATA "y pulsas 1, te quedar ¡ DABC","y si pulsas 2, te quedar ¡ BCDA. " , " E 
s decir las tres primeras letras se", "corren un lugar y la hltima salta al","otr 
o extremo. " 

10006 DATA " Cuando quieras cortar pulsa M y te" , "aparecerá el MENU.",," PUL 

SA TECLA PARA COMENZAR" 


SUMAS 


SUMAS es un programa para los «peques» de la casa (y también 
para los no tan pequeños). Con él podrán entrenarse en hacer su- 
mas y el ordenador comprobará los resultados. La suma puede te- 
ner sumandos formados por desde sólo una cifra hasta sumandos 
de nueve cifras. 

Cuando se haya resuelto correctamente la suma, ésta aumenta- 
rá en uno el número de sumandos hasta un total de nueve. Si se de- 
sea. puede haber un reloj que contará el tiempo transcurrido. 

Si al teclear un número se comete algún error, puede borrarse 
pulsando la tecla B. 


10 • +++♦+++ SUMAS +++++♦+ 

20 ’ 

30 SCREENO ¡ KEYOFF ¡ WIDTH40 
40 OPEN-GRPí "ASM ¡COLORI, 10, 10 
50 F0RZ=1 T0184 ¡ PRINT" +SUMA" ¡ ¡ NEXT 
60 F0RT=1T02000¡NEXT¡CLS 

70 COLORI , 10, 10:L0CATE15,0¡PRINT"S U M A S M ¡ REST0RE9000¡ F0RZ-1T021 ¡ RE ADE* : LOCATE 

o,z+i : printe*:next 

80 IFINKEY*=" "THEN80ELSECLS 

90 ( WIDTH39: L0CATE2, 8¡ PRINT“C0N CUANTOS DIGITOS QUIERES LA SUMA?" 

95 ON INTER VAL=50G0SUB490 

100 L*=INKEY*¡ IFL*=“ *'THENiOOELSEL=VAL (L*) 

110 IFL< 1 ORL >9TH£NBEEP ¡ G0T0100 

120 L0CATE2, 10: PRINT"QUIERES RELOJ (S/N)?" 

130 R*-INKEY*¡ IFR*=" " THEN1 30ELSEIFR*< >"S"ANDR*< >"s"ANDR*< > "N“ANDR>< > "n“THEN130 
140 COLORI : WIDTH25: CLS: TT=0¡ SM=2 

150 CLS¡ S*«" " : TM = 0¡ S0=0: FORZ-ITOSM: A (.Z) -INT (RND < -TIME)*10 A L) ¡S0°S0 + A(Z) : NEXT 
160 TB=INT (10-L/2+.5) : SR*=STRING* ( L+3 , 95 > 

170 COLORÓ: L0CATE1 , 1 : PRINTUSING"SUMA PiPt" ;SM-1 



180 F0RZ=1T0SM:L0CATETB+L-LENCSTR*<A<Z) ) ) +1 ,4+Z:PRINTA(Z) : NEXT 
190 L0CATETB-1 , Z + 4 : PRINTSR$ 

200 IFR$= "S" 0RR$=" s" THENINTERVALON: L0CATE15, 1 : PRINT" RELOJ » 

210 L0CATE5, 19: PRINT" INTRODUCE EL “ : L0CATE7 , 20 : PRINT "RESULTADO “ 

220 F0RX=1 TOLEN < STR$ ( SO ) )-l 

230 COLORI : LGCATETB+L, Z + 5: PRINTCHR$ (219) 

240 K$=INKEY*: I FK$=" " THEN240ELSEG0SUB8040 

250 IFK*< >"B"AND (ASC (K$) <480RASC (K*) >57) THEN240 

260 IFK*="B"ANDX>1THENL0CATETB+L, Z+5: PRINT" " : TB=TB+1 : X=X-1 ¡ S$=MIDS ( S$, 2, LEN (SS) 

) :G0T0230:ELSEIFK*=*"B 4, THEN240 

270 locatetb+l,z+5:printk$:tb=tb-i :s$=k«+s$ 

280 next:tt=tt+tm 

290 IFR*= " S " ORR*= " s " THEN INTER VALOFF 
300 S=VAL(S$> 

310 SN=10: F0RY=19T020: F0RX=lT019í BEEP: SN=SN+1 : LOCATEX, y: PRINT" " : NEXTX, Y 

320 IFS=S0THENL0CATE4 , 19: PRINT"FELICIDADES"ELSE350 

330 REST0RE9100:F0RX=20T040:READCC:C0L0RCC:PLAY"T255L64N=Xí •* 

335 IFPLAY<1)=-1THEN335 

340 NEXT: COLORI : F0RT=1T02000: NEXT : G0T0420 

350 L0CATE2 , 19: PRINT “LO SIENTO, LA SUMA " : L0CATE3 , 20 : PR INT " NO ES CORRECTA" 

360 REST0RE9100! F0RX=30T020STEP-1 :READCC: COLOR, CC:PLAY"T100120N=X; " 

365 IFPLAY<1)=-1 THEN365 

370 .NEXT : COLORI : F0RT=1T02000 : NEXT 

380 LOCATE 1 , 22 : PRINT “LA REPETIMOS <S/N)?“ 

390 G$=INKEY$: IFG*= 14 " THEN390ELSEG0SUB8000: IFG*< >"S" ANDG3K >"N"THEN390 

400 I FG$= " S " AND < R*= " S " ORRS= " s " ) THENTM=0 

410 IFG$="S"THENS*= M " : CLS: G0T0160 

420 IFSM< 10THENSM=SM+i : G0T0150 

430 CLS 

440 IFR$="S"0RR*="s"THENL0CATE4, 6: PRINT "TIEMPO TOTAL " : L0CATE8 , 8 : PRINTUSING" PtPiP.Pt " 
i TT 

450 L0CATE4, 12: PRINT"OTRA PARTIDA (S/N)" 

460 J^=INKEYí: IFJ$=" "THEN460ELSEG0SUB8020: IFJS< > "S“ANDJS< > "N"THEN460ELSEIFJ^="S" 
THENRUN90 

470 CLEAR:C0L0R15,4,4: WIDTH39 : SCREENO : L0CATE4 , 1 0 : PRINT 14 PARA EL SIGUIENTE PROGRAM 
A " : L0CATE4 , 12 : PRINT "PULSA PLAY EN EL CASSETTE" 

480 CLOAD 

490 L0CATE15, 2.1 PLAY " T255L6405A " : PRINTSTRING$ (5, 44 . 44 ) : LOCATE i 5, 2 : TM=TM+ 1 : PRINTUSIN 
G " PtPtPtP» " i TM 
500 RETURN 

8000 IFASC < G$) < 65THEN8010ELSEIFASC ( 6$) >90THENG$=CHR$ ( ASC < G*) -32) 

8010 RETURN 

8020 IFASC < J$) < 65THEN8030ELSEIFASC ( JS) >90THEN J$=CHR$ ( ASC < J$ ) -32) 

8030 RETURN 

8040 IFASC (K$) < 65THEN8050ELSEIFASC (KS) >90THENK$=CHR$ (ASC (K$) -32) 

8050 RETURN 

9000 DATA" Es un programa para los peques de la", casa (y no tan peques).,," Co 
n OI podr n entrenarse en hacer", sumas y el ordenador comprobar 1 os , resu 1 tados . 

La suma puede ser desde sumandos de", "una sola cifra, hasta sumandos de nue 
ve" , c if ras . 

9010 DATA," Cuando se haya resuelto correctamente" , la suma aumentar en uno el 
nPtmero de, sumandos hasta un total de nueve.,," Si se desea puede haber un reloj 
que", contar el tiempo t ranscur r i do. , 

9020 DATA" Para borrar un nPtmero pulsa la tecla B",, M PULSA CUALQUIER TECLA PA 
RA COMENZAR" 

9100 DATA 1 , 2, 3, 4,5,6,7,8,9,10,11,12,13,14,15,6,2,11,7,4,5,10,3,9,8 



El enemigo avanza sobre tu ciudad con todos sus carros de com- 
bate. Tu misión consiste en eliminarlos uno por uno con tu tanque. 
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Para : ;zrr destruirlos tendrás que hacer un disparo certero calcu- 
lando ios orados de tiro y la fuerza del disparo. Como obstáculos es- 
tarán : ? o rapios edificios de la ciudad que no debes destruir por ac- 
cidente. 

Ten cuidado con el enemigo, tiene mucha puntería. 


Bolean de susaipoón, 

A remitir a MSX SOFTWARE. Bailén, 20-1.° Izq. 28005 MADRID 
Deseo suscribirme a los 1 1 números anuales de la revista 
MSX SOFTWARE por sólo 3.500 pts. 

B importe lo haré efectivo: 

□ Por giro postal n.® 

□ Por talón nominativo adjunto. 

O Contra reembolso a la recepción del primer ejemplar, más gastos de envío. 
Deseo suscribirme a partir del n.° (inclusive!. 


Nombre y apellidos:. 


.. Teléfono 
Firma 


10 ■ <<< TANQUE >>> 

20 ’ 

30 CLEAR1000S\C0L0R15, 5, 5: KEYOFFS SCREENi , 2 : WIDTH29 S OPEN " GRP : "ASM : RESTORE 
40 F0RZ=0T020í READESS LGCATEO , 2 S PRINTE*: BEEP: NEXT*. PLAY"L6402F" : GÜSUB9500 : K-64 S FOR 
Z=-16T0255S PUTSPRITE2, <Z, 175) , 15,2: IFZ/5=INT (Z/5) THENPLAY " s8ml00 1255 1 Ó4n = k j " 

47 K=K-.2:NEXT:L0CATE0,22SPRINT" PARA CONTINUAR PULSA TECLA" SDS=-1 
50 IFINKEY$=" "THEN5Q 

60 COLOR , , 1 : SCREEN2 I G0SUB800 : G0SUB920 

70 DS-DS+1 S G0SUB840S G0SUB910S LINE (O, 11) - (255,20) , 15 , BF : COLORI : DRAW " BM20, 12":PRIN 
TM," (ANGULO (10-89 grados)?" 

80 A1$=INPUT$ ( 1 ) : A 1 =ASC (Al*) I IFAK490RA1 >56THEN80ELSEBEEP S DRAW"bm220, 12" : PRINTM 
, Ai* 

90 A2*=INPUT* ( 1 ) : A2=ASC ( A2*) : IFA2<430RA1 >57THEN90ELSEBEEP : DRAW"bm228, 12" : PRINTM 
, A2* 

100 AD=163S AN*=A1*+A2*S AN=VAL(AN*) : IFAN>44THENPUTSPRITE2, (-16, 191) , , 2 S PUTSPRI TE3 
, (XT, 175) , 15, 3: AD=159 

110 LINE ( 0 , 11) -(255,20) , 15 , BF I COLOR 1 : DRAW " BM20 , 12 PRINTM , " (FUERZA (100-999)?" 
120 A1*=INPUT* ( 1 ) : A1=ASC ( Al$) : IFAK490RA1 >57THEN1 20ELSEBEEP : DRAW "bm200 , 12" ¡PRINT 
M, Al* 

130 A2*=INPUT*( 1 > SA2=ASC(A2*) : I FA2< 480RA2 >57THEN130ELSEBEEP : DRAW " bm208 , 12" SPRINT 
M,A2* 

140 A3*=INPUT*< 1 > S A3=ASC(A3*) : IFA3< 48QRA3 >57THEN140ELSEBEEP : DRAW " bm2ió , 12“ SPRINT 
P.1 , A3* 

150 AN*=A1* + A2* + A3*S FZ=VAL (AN*) 

160 LINE <0, 11 ) -(255,20) , 15, BFi DRAW“bmlO, 12" S PRINTM , "ANGULOS " J AN S DRAW “ BM130 , 12" S 

PRINTM , "FUERZAS " i FZ 

170 0NSPRITEG0SUB1200S SPRITEON 

180 F=1 SX0=XT+16S R=FZ/4S A 1=3. 14-AN*6. 28/360 S AD=AD+SIN ( 4 . 71 -AI ) #RS CR=X0 + ABS ( COS ( 4 
. 71-AI )*R) S X0=X0-C0S (3. 14-AI ) *RS GQSUB500S G0SUB910 







185 IFZ< -90THEN200ELSEL INE < 0 , 11) - (255,20) , 5 , BF : G0SUB9 1 0 

190 F=2: AD=179:X0=XN:R= (XN-XT+48) / 2 : AI = . 785 : AD=AD-1 6+SIN ( AI ) *R : CR=XO-R+ ( COS ( AI ) * 

R/2-8) :G0SUB700 

200 G0SUB850¡G0SUB920 

210 LINE (O, 11)- (255, 20) , 8, BF: COLOR 15: DRAW"BM5, 12" : PRINTM , "CONTINUAMOS CON LA PA 
RTIDA (S/N)" 

220 RS=INPUT$< 1 ) : IFR*= , ‘S"0RR*="s"THEN70ELSEIFRí*;< > "N " ANDR*< > “ n " THEN220 

230 C0L0R15,4,4:SCREEN0:WIDTH39:CLEAR200:L0CATE2, io:print h para OTRA PARTIDA PULS 

A LA TECLA P": LOCATE 2, 12: PRINT"PARA PASAR A OTRO PROGRAMA PULSA F" 

240 RS=INPUT$(1 ) : IFR$= " P " ORR$= “p "THENRUNELSEIFR$< > "F " ANDRiP< > " f " THEN240 

250 CLEAR:CLS:L0CATE4, 10:PRINT“PARA EL SIGUIENTE PROGRAMA" : L0CATE4, 12: PRINT"PULS 

A PLAY EN EL CASSETTE " 

260 CLOAD 

500 S=255 : PLAY" 1 60vl4o2c " , " 1 60v 12o3c " , " 150o2f " : F0RZ=4 .71-AIT0-. 5STEP- . 05 : XQ=CR+ I 
NT ( COS ( 2 ) *R + . 5) : YO»AD-INT(SIN(Z)*R+. 5) :S0UND1 , i : S0UND8 , 5 : SOUNDO , S i S“S-4 : PUTSPRI T 
E5 , (XO, YO) , 15,5 

510 IFXO >2550RY0 > 1 770RY0< - 14THENZ=- 1 . 95 
520 T=P0INT(X0,Y0+16> í IFT=9THENZ=-3. 95 

530 ÑEXT : S0UND8, O: PUTSPRI TE5, (-16, 191) , ,5: IFZ=-4THEN600 
550 RETURN 

600 PT=PT-50:G0SUB3000: G0T0550 

700 S=255:PLAY“ 160vl4o2c" , “ 160vl2o3c", " 1 50o2f 11 : F0RZ=AIT03. 5STEP. 05: XO=CR+INT (COS 
(Z)*R+. 5) : Y0=AD-INT(SIN(Z)*R+.5) :S0UND1, 1 l S0UND8 , 5: SOUNDO , S : S=S-5 : PUTSPRI TE5, (XO 
, YO), 15, 5 

710 IFXO< OORYO >1 75THENZ=6. 23 

720 T=POINT (XO, YO+16) : IFT=9THENZ=4. 66 

730 NEXT:S0UND3,0:PUTSPRITE5, (-16, 191) , ,5: IFZ=4. 68THEN760 
740 RETURN 

760 G0SUB3000: G0T0740 

800 DRAW“BM20, 1 ": PRINTM , "UN MOMENTO POR FAVOR" : DRAW M BM20, 11": PRINTM , “ESTOY PRE 
PARANDO EL PAISAJE" 

810 N=RND ( -TIME ) : PSET (O, 150) , 12: F0RZ=3. 14T00STEP- . 1 : X=127+C0S ( Z ) *200: Y=191-SIN(Z 
) *150 I YY=RND ( 1 ) *20: Y=Y+YY: IFX< -200RX>270THEN815ELSELINE- (X, Y) , 12 
815 NEXT : LINE ( O , 100) - (255, 191) , 12, BF: PAINT ( 127, 98) , 12 

820 PSET ( O , 150) ,2:F0RZ=3. 14T00STEP-. i : X=127+C0S ( Z ) *1 50 : Y=191 -SI N (Z ) *1 20 : YY=RND ( 1 

) *20: Y=Y + YY:*IFX< 10RX>280THEN825ELSELINE- (X, Y) , 2 

825 NEXT: LINE <0, 150) -(255, 191) , 2 , BF : PAINT ( 127 , 148) ,2 

830 PSET ( 0 , 170) ,3:F0RZ=3. 14T0- ..1STEP- . 1 : X=127 + CDS, (Z ) *127: Y s 191 -SIN ( Z ) *90 : YY=RND ( 


Bailén, 20 - 1.° Izq. 
28005 - MADRID 




910 L XNE (0,0)- (255, 10) , 1 , BF: C0L0R15: DRAW u bmlO, 1 " í PRINTfcl , US ING" DISPAROS: hhPiK" J DS 
: DRAW 41 BM 1 40 , 1" : PRINTM , US ING "PUNTOS : ♦RPiPifcP» " i PT : RETURN 

920 N=RND ( -TIME ) IXT-INT (RND<1)*51) í PUTSPRITE3 , (-16,191), , 3 í PUTSPR I TE2 , <XT, 175) , 1 
5,2: XN=INT ( RND ( 1 ) *51 ) + 1 8Q : PUTSPRITE4 , (XN, 175) , 1,4: RETURN 
1200 SPRITEOFF: IFF=1 THENZ=-99 : PT=PT+ 100ELSEZ*=99 : PT=PT-50 
1210 G0SUB3000*. G0SUB910J G0SUB350: RETURN 

3000 S0UND8, O: SPRITEOFF: PUTSPRITE5, (-5, 191 ) , , 5 : PUTSPRITEO , (XO,YO) ,6,0:S0UNDO, 100 
: SOUNDl , lo: F0RK=1T0100: PUTSPRITE1 , (XO, YO) , S, 1 : S0UND8 ,8: F0RT=1TQ1 O : NEXT : PUTSPR I TE 
1, <X0,191),,l: S0UND8, 4: F0RT=1T010: NEXT: NEXT : PUTSPRITEO, (XO, 191 ) , , O: S0UND8, O: RETU 
RN 

9000 DATA" T A N Q U E", "El enemigo avanza sobre tu”, ciudad con todos sus 

carros,de combate.,," Tu misi "n consiste en e 1 i - " , mi nar 1 os uno a uno con tu, tan 
que.,," Para destruirlos tendr s que" 

9010 DATAhacer un disparo certero cal-,culando los grados de tiro y, la fuerza de 
1 disparo.,," Como obst culos tendr s los", propios edificios de la ciu-,dad que 
no debes destruir por , acc i dente. , , " Cuidado con el enemigo, ", tiene mucha punte 
r i a. 

9100 DATAS. 8, 8, 11, 15,31,31,31 ,63, 63,63,66, 183, 183, 66, 63, v , , 128,255,255, 192, 192,2 
52,252,252,34, 117, 1 17, 34,252, , , 7, 159,252,240, 192, 192,252,252,252,34,117, 117,34,2 


BIORRITMOS 


Este programa calcula los biorritmos (físico, emotivo e intelec- 
tual), así como su suma. Primero has de introducir la fecha de tu na- 
cimiento (día, mes y año, este último como 19 ...) y a continuación la 
fecha de hoy. El programa presenta tres opciones; la primera calcu- 
la los biorritmos de este mes, la segunda los del mes próximo y la 
tercera los de los próximos ocho meses. 






T8P 


1 



12Q I NPUT 11 A$o actual: ";AA 

122 CLS : LOCATE 1 , 4 : PRINT "FECHA DE NACIMIENTO: DNJ MN» " — " ; AN, , , “ FECHA ACTUAL 

: " ;da; “ **" ;ma* 44 - u ;aa: lócate io, io: print 44 conforme (s/n>" 

128 X$=INKEY$: IF X$= 44 4 4 THEN 128 ELSE IF X$=‘*S I< OR X$= 44 s 44 THEN 130 ELSE IF X$= 44 N" 
OR X$= 44 n 44 THEN 110 ELSE 128 

130 CLS I LOCATE 1 8 , 1 : PRINT " MENU " í LOCATE 2, 6: PRINT" 1 : BIORRITMOS DEL MES " : LOCATE 2, 
8: PRINT 44 2 ! BIORRITMOS MES PROXIMO LOCATE 2,10: PRINT " 3 : BIORRITMOS LARGO ALCANZE 44 : 
LOCATE 2,12: PRINT ”4: CAMBIAR FECHAS 41 : LOCATE 2, 14: PRINT 4, 5: FINALIZAR" 

140 X$=INKEY$:IF X$= " " THEN 140 ELSE IF X$=''l" THEN 500 ELSE IF X$= ,4 2 44 THEN 550 E 
LSE IF X$= 44 3 " THEN 200 ELSE IF X$="4 4 ‘ THEN 110 ELSE IF XS¡= 44 5 44 THEN 5000 ELSE 140 
200 XI =AN : X2=MN : X3=DN : Y1=AA¡ Y2=MA : Y3=l : GOSUB 1000: GOTO 2000 

400 CLS:LOCATE 2, 10: PRINT 4, Los gr fíeos permanecer n en pantalla hasta que puls 
es tec 1 a. 44 

410 RESTORE 10100:FOR 1=220 TO 223:F0R J=0 TO 7 : READ K:VPOKE 2048+8*1 +J , K : NEXT J 

» I 

415 X$=INKEY$: IF X*= 44 44 THEN 415 
420 RETURN 

500 GOSUB 400; X1=AN: X2=MN: X3=DN: Y1=AA: Y2=MAí Y3=l : GOSUB 1000:G0T0 650 
550 GOSUB 400:X1=AN:X2=MM:X3=DN: Y3=I í IF MA=12 THEN Y1=AA+1:Y2=1 
552 IF MA< 12 THEN Y1 =AA : Y2=MA+ 1 
554 GOSUB 1000: GOTO 650 

600 CLS : RESTORE ÍOOIO.’FOR 1 = 1 TO i 6 : READ X$:LOCATE 35, I : PRINTX$¡ NEXT I 

601 FOR 1=0 TO 18:L0CATE 2,I:PRINT 44 “ : NEXT I : LOCATE 2,19:PRINT" 

602 LOCATE 1, O! PRINT" 1 " : LOCATE 1,9:PRINT“0 H : LOCATE 0 , 18 : PRINT 44 - 1 ": LOCATE 7,20 

: PRINT ”5 10 15 20 25":L0CATE 1,21: PRINTM$ < Y2- i ) ; Y i 

604 IF Y2»2 AND YlÑ4=Yl/4 THEN LOCATE 31 , 19: PRINT 44 14 

606 IF M ( Y2 ) >=30 THEN LOCATE 31 , 19: PRINT 14 44 : LOCATE 32 , 20 ¡ PR I NT " 30 44 

608 IF M(Y2)=31 THEN LOCATE 33, 19: PRINT 44 “ 

610 RETURN 

650 GOSUB 600: ND=M ( Y2) : IF Y2=2 AND Y1/4=Y1Ñ4 THEN ND=ND+ 1 

655 FOR I=DIAS TO DI AS+ND- 1 : X=I -DI AS+3 : Y4=9 . 7-9*SIN ( 2*3. 1 4159*1 /23 ): Y5=9 . ?-9*SIN 
(2*3. 14159*1/28) : Y6=9 . 7-9*SIN (2*3. 14159*1/33) 

670 LOCATE X, Y4¡ PRINT“F“ ¡ LOCATE X , Y5 : PRINT 44 E ": LOCATE X , Y6 : PRINT " I “ 

672 IF INT (Y4)=INT (Y5) THEN LOCATE X,Y5:PRINT CHR$(220) 

674 IF INT (Y4)=INT(YÓ) THEN LOCATE X,Yó:PRINT CHR$(221) 

675 IF INT ( Y5 ) =INT ( Y6 ) THEN LOCATE X,Y6:PRINT CHR*(222> 

677 IF INT (Y4)=INT (Y5) AND INT ( Y4) =INT (Y6) THEN LOCATE X,Y5:PRINT CHR$(223> 

679 NEXT I 

700 X$=INKEY$: IF X$= 4 "‘THEN 700 ELSE CLS: GOSUB 601 
705 LOCATE 1,0: PRINT 44 3 44 : LOCATE 0 , 18 : PRINT 44 -3 44 

703 X$= 44 SUMA DE BIORRITMOS 44 : FOR 1 = 1 TO 18:L0CATE 37, I : PRINTMID* <X$, 1 , 1 ) : NEXT I 
710 FOR I=DI AS TO DIAS+ND-1 : X=I-DIAS+3: Y4=SIN (2*3. 14159*1 /23) : Y5=SIN (2*3. 14159*1 
/ 28 ) :-Y6=SIN ( 2*3. 14159*1/33) 

712 Z= (Y4 + Y5 + Y6 + 3)*3: FOR J = 18 TO 18-Z STEP -i: LOCATE X, J : PRINT " i 44 : NEXT J : NEXT I 
750 X$=INKEYS: IF X*="J' THEN 750 ELSE 130 

1000 DIAS=0: IF Y1-X1=1 THEN 1025 ELSE IF X1=Y1 THEN 1300 
1005 FOR I=Xl+i TO Y 1 - 1 : DI AS= DI AS +365 
1010 IF I/4=Irí4 THEN DIAS=DIAS+1 
1020 NEXT I 

1025 IF X2= 1 2 THEN 1055 

1030 FOR I* X2+ 1 TO 1 2 : DI AS=DI AS+M ( I ) 

1040 IF 1=2 AND X1/4 = X1RÍ4 THEN DIAS=DIAS + 1 
1050 NEXT I 

1055 IF Y2=l THEN 1090 

1060 FOR 1=1 TO Y2-1 : DIAS=DI AS+M ( I ) 

1070 IF 1=2 AND Y1 /4=Y1Ñ4 THEN DIAS=DIAS+1 
1080 NEXT I 

1090 DIAS=DIAS+M (X2) -X3: IF X2=2 AND Xi/4=X1K4 THEN DIAS=DIAS+1 
' 1200 DI AS=DI AS+Y3 : RETURN 

1300 FOR I=X2+ 1 TO Y2- 1 : DI AS=DI AS+M ( I ) : IF 1=2 AND Xi/4=X1Ñ4 THEN DIAS=DIAS+1 
1310 GOTO 1090 

2000 SCREEN 2: LINE (O, O) - (256, 130) , 15, BF: DRAW" C5 BM 16,0 D114 BU2 R239 BU83 L241 
BU25 R4 BD48 L4 BD12 R4 BD24 L4 BD24 R4“ 

2010 open“grp: “asm: color 5: draw ,4 bm7, i " : printm , “ i “ : draw u bm 7 , 26" : printm , ,4 o 4, :dra 
W"BMO, 49" : PRINTM , 44 -1 " : DRAW 44 BM7 , 6 1 “: PRINTM , “3“ : DRAW 44 BM7, 85“ : PRINTM , 41 0' 4 : DRAW “ BM 
O, 109" ¡PRINTM, H -3“ 

2020 J=MA:X=1ó:DRAW"BM 12, 116" ¡PRINTM, J : FOR 1= O TO 6¡J = J + 1:IF J = 13 THEN J = 1 
2025 X=X + M(J) : PSET (X, 1 13) , 12: PSET ( X , 1 1 4 ) , 12 : K=X-4 : DRAW “ BM=K i , 1 16 44 : PRINTM , J : NE 
XT ÜCOLOR 15,4,4 

2030 DRAW-BM16, 150" ¡PRINTM , “VERDE: ESTADO FISICO" : DRAW“BM16, 160 44 : PRINTM , “AZUL: 

ESTADO EMOTIVO 44 : DRAW“BM16, 170“ ¡PRINTM , “ROJO: ESTADO I NTELECTUAL 44 : DRAW 44 BM1 ó , 1 80 
" ¡PRINTM, "AMARILLO: SUMA BIORRITMOS" 

2050 FOR I=DI AS TO DIAS+239 STEP . 5 : X= I ~DI AS+ 1 7 : Y4=SIN ( 2*3. 14 159*1 /23 ) : Y5=S IN ( 2* 
3. 14159*1/28) ¡ Y6=SIN (2*3. 14159*1/33) 

2055 Z=INT ( (Y4+Y5+Y6+3) *8) : LINE ( X , 1 1 1 -Z ) - ( X , 1 1 1 ) , 10 

2060 Y 4=29 -25*Y 4 ¡ Y5=29-25*Y5 ¡ Y6=29-25*Y6 : PSET (X, Y4) , 2 ¡ PSET ( X , Y5 ) , 4 ¡ PSET ( X , Y6 ) ,6: 
NEXT 1 ÜCLOSEM 

2100 X$=INKEY*:IF X$=“" THEN 2100 ELSE SCREEN 0¡ GOTO 130 
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Los diagramas de sectores son sistemas de representación gráfi- 
ca de datos en frecuencias relativas. Los datos a representar deben 
formar parte de una misma variable. El programa lleva incorporada 
una base de datos que permite almacenar la información. La repre- 
sentación gráfica se realiza por variables. La lectura del diagrama se 
lleva a cabo desde la flecha en el sentido contrario a las agujas del 
reloj. No se puede representar más de 18 datos de una misma varia- 
ble. 


10 ’ PROGRAMA << DIAGRAMA DE SECTORES >> 

20 * 

30 COLOR 15, 4, 4: KEVOFF: SCREENO: WIDTH40 

40 RESTORE 9000: F0RZ=0T019: READE*: LOCATEO, Z: PRINTE$: NEXT 
50 L0CATE5,22:PRINT"PULSA una tecla para continuar " 

60 IFINKEY$=" "THENóO 

70 TC = 1 00 : P 1=2*3. 141592ÓP»: R=60: CLS 

75 0PEN"grp¡ "ASM 

30 L0CATE2, 12: INPUT"NUMERO DE VARIABLES" J V 
90 IF V<1 0RV< > I NT ( V ) THEN 70 

100 CLS: LOCATE 2 , 12 : INPUT " CUANTOS DATOS TENDRA CADA VARIABLE" JD 
110 IFD< 10RD< >INT (D) ORD >18 THEN100 

120 IFD*V>2000THENPRINT:PRINT"S0N DEMASIADOS DATOS " : FORTMTÜZ^ ; G0TQ70 

130 DIMA(V,D) ,V$(V) ,P(D) ,S(V) , R<D) 

140 CLS 

150 F0RZ=1T0V:PRINT"NQMBRE DE LA VARIABLE N . " $ Z : INPUTV* ( Z ) 

1Ó0 CLS 

170 LOCATE 2,2:PRINT"VARIABLE ";V$<Z) 

180 F0RX-1T0D 

190 L0CATE5,X+2: PRINT"DATO N. " i X ¡ : INPUTA < Z, X ) 

195 S(Z)=S(Z) +A(Z,X> 

210 NEXT 
220 CLS: NEXT 

230 I NPUT *' NUMERO DE LA VARIABLE A REPRESENTAR " ¡ VR 

240 IFVR< 1 0RVR< > I NT < VR ) ORVR > VTHENCLS : G0T0230 

250 CLS: LOCATEÓ, 12: PRINT"UN MOMENTO POR FA l 'OR..." 

260 FOR X= 1 TOD 


DIAGRAMAS DE SECTORES 


5000 CLEAR: CLS:LOCATE 4, lo: PRINT"PULSA PLAY PARA PROXIMO PROGRAMA" :cload 

9000 DATA " BIORRITMOS" , " Este programa calcula los b i o- " , " r r i tmos ( -f ? 

sica, emotivo e inte-" , M lectual) , asi como su suma.", " Primero has de introducir 

la" 

9001 DATA "-fecha de tu nacimiento y a con-", "tinuaci "n la fecha de hoy."," Tiene 
s tres opciones, la prime-", Va calcula los b i or ritmos de es-", "te mes, la según 
da 1 os del mes" 

9002 DATA "pr"xirno y la tercera los de 1 os prox irnos ocho meses.",,,,,," PULS 
A TECLA PARA COMENZAR" 

10000 DATA 31,28,31,30,31,30,31,31,30,31,30,31, "ENERO", "FEBRERO", "MARZO", "ABRIL" 
, "MAYO", "JUNIO", "JULIO", "AGOSTO", "SEPTIEMBRE", "OBTUBRE" , "NOVIEMBRE", "DICIEMBRE" 
10010 DATA “I F E " , , " I E E","N S S","T T T","E A A","L D D","I 0 0","G","E F E", 
" N I M " , " C S O " , "I I T " , "A C I " , " O V " , " O" 

10100 DATA 0,224, 156,208, 152, 144,28,0,0,224, 156,200, 136, 136,28,0,0,224, 156,200, 1 
36,232,28,0,224, 128,220, 144,248,80,80,224 
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270 P(X)=A(VR,X)*TC/S(VR) 

280 R(X)=A (VR,X)*PI/S(VR) 

290 NEXTICLS 

300 SCREEN2: DRAWBM8, 0" : PRINTPti , "REPRESENTACION DE LA VARIABLE " - LEFT* ( 

V$ (VR) ,10) ’ 

310 C IRCLE ( 70 , 100) ,60, , , ,1.3: DRAW"bm70, lOOuóO" 

320 DRAW"BM70, 35u 1 0d5L3U3G3F3U3 M 
330 SR=PI/4 
340 FORZ= 1 TOD 
350 SR=SR+R (2) 

360 XX-45*C0S(SR> : YY«R*SIN(SR) 

370 LINE (70, 100) - (70+XX, 100-YY) : NEXT 

380 DRAW-BM120, 24“ zPRINTM, “SECTOR PORCENT. " 

390 F0R2-1T0D: YM=Z*8 + 24 .* DRAUI " BM1 36 , =YM » " : PRINTM , USING " ftfc " ;2 
400 DRAW"BM192,=YMí - : PRINTft i , USING "ftftP, . Pifcfc " ; P ( Z ) 

410 NEXT 

420 DRAW"BM8, 183" : PRINTM , "PULSA UNA TECLA PARA CONTINUAR" 

430 IFINKEY*=" “ THEN430ELSESCREEN0 
440 L0CATE5 , 5 : PRINT “ MENU DE OPCIONES:" 

T» 0 ^!;^ ATE3,7:PRINT,,1 '' REPRESENTAR OTRA VARIABLE":L0CATE3,10:PRINT"2.- INTRODUC 
IR OTROS DATOS L0CATE3 , 13: PRINT “ 3. - TERMINAR EL PROGRAMA" 

460 L$=INKEY$: IFL$=" "THEN460 ELSEL=VAL ( L$) : IFL< 10RL >3THEN460 

470 IFLMTHENCLS: G0T0230 

480 IFL=2THENCLS: ERASE A, V$, P, S, R: RUN70 

a 9 play E en : el S casseÍt^:cloa¿ NT " PARA EL SIGU1ENTE progr . ama “ : loc ATE 4 , i 2 : pr i nt " puls 

9000 DATAD IAGRAMA DE SFPTnRtro u . . . 

. t SECTORES,, Los diagramas de sectores s 

on sistemas , de representad i “n gr fica de datos en, frecuencias relativas.,," Lo 

s datos a representar deben f ormar ", parte de una misma variable. 

9010 DATA," El programa lleva incorporada una base", de datos que permite almacén 
la ln ' for > ma d"n. La representad “n gr fica se, realiza por variables. 

9020 DATA,"- La lectura del diagrama se real i za" , desde la flecha en el sentido c 
on rar i o , a las agujas del reloj.,," No se pueden representar m s de 18", datos d 
e va r i ab le. 



INTEGRACION NUMERICA (INNUME) 


El presente programa te permite calcular integrales definidas por 
los métodos numéricos del Trapecio, Simpson, Newton, Trapecio 
compuesto o Simpson compuesto. 

Primero has de introducir la función que desees integrar; para ello 
has de modificar la LINEA 100 y pulsar Fl; a continuación, has de 
elegir el método a utilizar y dar el intervalo de integración. 

Las potencias introdúcelas como X*X*X y no como k A 3. 


5 KEYOFF: SCREEN OlWIDTH 40: COLOR 15,4,4: FOR 1=1 TO 21IREAD XS: LOCATE 0,I:PRINTX*¡ 
: NEXT I 

6 X*=INKEY*:IF **="" THEN 6 ELSE SCREEN 0:WIDTH 39 

10 COLOR 15,4,4:KEY 1, "run 100 " ♦CHR* ( 13 ): KEYOFF : GOTO 5000 
100 DEF FNF (X)=-l/ (X*X) :F*="-1/ <X*X> " 

110 G0T0500 

150 COLORI : PLAY " L8ABCDEF “ : L INE ( O , 0 ) - ( 256 , 10 ) , 9 , BF 

152 LINE (0,10)- (256, 124) , 7, BF: RETURN 

154 PLAY " L32C " : LINE (O, 124) -(256,162) , 1 1 , BF : RETURN 




500 0PEN"GRP: "ASM : COLOR 15 , 4 , 12 : SCREEN1 : LOCATE O, 6*. PRINT " (QUE METODO QUIERES US 
AR?" 

502 LOCATE 2, 10: PRINT" 1 : TRAPECIO" : BEEP: L0CATE2 , 12: PRINT"2¡ SIMPSON" : BEEP: L0CATE2, 
14: PRINT "3 ¡ NEWTON" : BEEP: L0CATE2, 16: PRINT" 4: TRAPECIOS COMPUESTO" : BEEP : L0CATE2 , 18: 
PRINT" 5: SIMPSON COMPUESTO" : BEEP 

510 X$=INKEY$¡ IFX$=" " THEN510ELSEIFX$< " 1 "0RX$>'*5"THEN510 

520 CLS: BEEP: JNPUT" VALOR INICIAL" J A: BEEP: INPUT" VALOR FINAL" f B: IFX$¡="4"0RX$="5"TH 
EN BEEP: INPUT"NUMERO DE SUBDIVISIONES" i N: BEEP 
530 ONVAL ( X$) GOT0550 , 600, 700,800,900 

540 DRAW"BM16, 24" ¡PRINTM , "FORMULA DEL METODO ": DRAW " BM8 , 48" : PRINTM , " t ": DRAW " BM8 
, 56" : PRINTM , "u" : DRAW“BM16, 42" ¡PRINTM , “ b " ¡ DRAW "BM16 , 62" : PRINTM , " a" : DRAW " BM22 , 5 
2" :printm , "f w " : return 

545 DRAW" BM8, 86" : PRINTM , H f ( x ) = " f F3¡ : DRAW " BM8 , 96 " : PR I NTM , " a= " J A : DRAW “ BM8 , 106":PR 
INTM , "t>=" J B 

547 G0SUB154:DRAW"BM8, 136 ": PRINTM , "SOLUCION: " J S: RETURN 

550 SCREEN2: G0SUB150: DRAW"BM70, 2" : PRINTM , "METODO DEL TRAPEC 10 " : G0SUB540 : DRAW “ BM 
40,52" : PRINTM ," ¡ f ( a) +f (b ) ¿" : DRAW " BM40 , 46 " : PRINTM , " <b-a) “ : DRAW " BM56 , 58 " : PR 

INTM , "2" : G0SUB1000: G0SUB545: G0SUB547: G0TO950 

600 SCREEN2: G0SUB15O: DRAW"BM70, 2“ : PRINTM , "METODO DE SIMPSON " : G0SUB540 : DRAW " BM40 
,52": PRINTM, " if (a)+4f (a+h)+f (b)¿"¡ DRAW"BM41, 46" ¡PRINTM, "h“ 

610 DRAW " BM41 , 58" : PRINTM , "3" : DRAW " BM8 , 76 " : PRINTM , " h= (b-a) /2" ¡ G0SUB1 100: G0SUB54 
5:G0SUB547: GOTO 950 

700 SCREEN2: G0SUB150: DRAW"BM70,2" : PRINTM, "METODO DE NEWTON" ¡ GOSUB540: DRAW"BM40, 
52" : PRINTM , " i f (a) + 3f <a+h) +3f (a+2h) •*•" ¡ DRAW "BM 192, 62" : PRINTM , "+f (b ) ¿ " : DRAW "BM4 
1,46" : PRINTM, " 3h ": DRAW "BM45, 58 "¡PRINTM, " 8" : DRAW"bm8, 76" ¡ PRINTM , "h=(b-a) /3":G0 
SUBI 200 

710 G0SUB545: G0T0950 

800 SCREEN2: G0SUB150: DRAW"BM12, 2" ¡ PRINTM , "METODO DE TRAPECIOS COMPUESTO " ¡ G0SUB5 
40: DRAW"BM40, 52" : PRINTM . d ifíx >+f(x J ¡ DRAW"BM41 , 46" : PRINTM , "b-a" ¡ DRA 
W"BM48, 53" : PRINTM , "N" : DRAW "BM73, 43" : PRINTM , "N" 

810 DRAW " BM8 , 74 " : PRINTM , " x =a+ih: h= (b-a) /N" ¡ DRAW " BM16 , 77 " ¡ PRINTM , " i " ¡ DRAW"BM64 
, 60" : PRINTM , " i=l " : DRAW "BM 120, 55" ¡ PRINTM , " i i -1 " : GOSUB 1 300 : G0SUB545 : DRAW " BM 

8, 116" ¡PRINTM, "N= m ;N:G0T0950 

900 SCREEN2: G0SUB150: DRAW"BM20, 2" ¡ PRINTM , "METODO DE SIMPSON COMPUESTO " ¡ G0SUB540 
: DRAW"BM36, 52" : PRINTM , “h d if(x ) +4f ( x )+f(x ) ¿" : DRAW“BM52, 43“ : PRINTM , "N" 

910 DRAW"BM8, 74" : PRINTM , "x =a + i h ¡ I = *0 , 2, , 2N> ¡ h= (b-a) /2N" ¡ DRAW'BMló, 77" ¡ PRINTM 
, "i" : DRAW "BM44, 60" ¡PRINTM , " i ni " : DRAW"BM100, 55" : PRINTM , "i i+1 i+2"¡G0S 

UB1400: G0SUB545: DRAW M BM8 , lió" : PRINTM , "N=" J N¡ GOT0950 

950 PLAY"L4DF" *. LINE (O, 1 62 ) - ( 256 , 1 92 ) , 14 , BF ¡ C0L0R4 : DRAW" BM16 , 163"¡PRINTM, " i : CAMB 
IAR DE FUNCION" : DRAW"BM16, 173" ¡PRINTM, "2¡CAMBIAR DE METODO O VALORES " ¡ DRAW"BM16 
, 183" ¡PRINTM , "3¡ FINALIZAR " ¡COLORIS 

955 X*=INKEY$: IFX$=" "THEN955ELSEIFX$=" 1 M THEN5000ELSEIFX$="2"THENRUN100ELSEIFX$=" 
3 " THEN5500ELSE955 

1000 S=(B-A)*(FNF(A) + FNF ( B ) ) /2¡ RETURN 

1100 H= (B-A) /2! S=H*(FNF ( A) +4*FNF (A + H) +FNF (B) ) / 3: RETURN 

1200 H= ( B- A ) /3: S=3*H* (FNF (A) +3*FNF(A+H) +3*FNF ( A + 2*H ) + FNF <B) ) /8¡ RETURN 

1300 H= ( B- A ) /N: S=0¡ F0RI=1T0N: S=S+ ( (A+CLEAR*H-A-(I-1)*H)*(FNF(A+I*H)+FNF(A+(I-1)* 

H) ) /2) ¡NEXTI: RETURN 

1400 H= ( B-A) / <2#N> : X3=FNF ( A) : S=0: F0RI=1T0N¡ X1=X3: X2=FNF ( A+2*I*H-H) : X3=FNF ( A+2*I* 
H) : S=S+H*(X1+4*X2+X3> /3: NEXTI : RETURN 
2000 PRINTS, : RETURN 

5000 SCREEN0:BEEP:L0CATE1, l¡PRINT"Modif ica f* y def fn-f(x) en la linea "i "que a 
parece editada a con t i nuac i on , pul"í"sa ENTER y a continuación F1 ¡ BEEP: 
LIST 100 

5500 CLEAR¡KEY1," Fo 1 or " : SCREENO: L0CATE14 , 10¡ PRINT " PULSA PLAY" ¡ L0CATE17, 12¡ PRINT 
"PARA" ¡LOCATE i 1,14: PRINT "PROXIMO PROGRAMA " ¡ CLOAD 

10000 DATA" INNUME"," INTEGRACION NUMERICA",," El prese 

nte programa te permite cal , "cu 1 ar integrales definidas por los mO-" 

10001 DATA"todos numor icos del Trapecio, S i mpson , " , " Newton , Trapecios compuesto 
o Simpson ", "compuesto. , 

10002 DATA" Primero has de introducir la f une i " n " , " que desees integrar, para ell 
o has de", "modificar la LINEA 100 y pulsar Fl, a" 

10003 DATA " c on t i nuac i " n has de elegir, el mOtodo a", "utilizar y dar el intervalo 
de integra", "ci"n. " Las potencias introdúcelas como X*X*X y no como x^3.",,,, 

" PULSA TECLA PARA COMENZAR" 


LA ABEJA 


lada y se va complicando con más paredes y frutos más jugosos (de 
más puntos), a lo largo del tiempo. 


Este es un juego emocionante en el que lo más importante es 
comerse muchos frutos. Sin embargo, las paredes te impedirán ha- 
cerlo con toda tranquilidad y tendrás que procurar no chocar con 
ellas. 

El juego está preparado para teclado o joystick; en el caso de ju- 
gar con teclado, el mismo usuario puede definir las teclas de movi- 
miento en las cuatro direcciones, además de una tecla de abandono 
y uno de 5 niveles progresivos de dificultad. 

Los frutos son de 6 tipos distintos, cada uno con sus correspon- 
dientes puntos. El juego comienza con 5 vidas y una pared interca- 


MEMORY 


Es una prueba a tu memoria; tu MSX está seguro de que no tie- 
nes tanta memoria como él. Pero quiere que le demuestres hasta 
dónde eres capaz de recordar con una secuencia de símbolos que tu 
ordenador te va a ir presentando en la pantalla. 

Además de poder trabajar con números o letras, puedes elegir el 
nivel de MEMORION que desees con secuencias de longitud 10, 20 
ó 30 caracteres. 
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1 8 juegos dinámicos para 
tu MSX 


Los juegos presentados en este li- 


bro utilizan funciones propias de los 



microordenadores MSX: sonido, co- 
lor, gráficos animados, etc. Por dicho 



motivo, estos programas sólo sirven 
para aparatos de este standard y difí- 
cilmente pueden adaptarse a otros 
productos. 

Aparte del propio juego, el estudio 
de estos programas le va a enseñar 
numerosas técnicas de programa- 
ción que le serán muy útiles para de- 
sarrollar sus propios programas. 

P.V.P. 690 PTS 


Despega con tu MSX 

DESPEGA CON TU MSX es una 
forma práctica y amena de introduc- 
ción al MSX basic, mediante un pro- 
grama que simula las distintas fases 
del viaje de la nave espacial COLUM- 
BIA. El posicionamiento para el des- 
pegue, la recuperación de satélites 
artificiales en órbita o cualquiera de 
las fases intermedias como el desa- 
cople de los cohetes impulsores, se 
convierten en el marco ideal para 


analizar los secretos de la programa- 
ción en este potente lenguaje. 



En DESPEGA CON TU MSX, Medel 


consigue crear un programa estruc- 
turado en bloques didácticos, de for- 
ma que facilita su comprensión, al 
mismo tiempo que los resultados se 
pueden ir visualizando desde el pri- 
mer momento sin teclear el listado 
completo. 

DESPEGA CON TU MSX viene 
completado por un segundo libro del 
mismo autor que transformará la ca- 
bina de mando del Columbia en un 
simulador de alto nivel. 

P.V.P. 2.300 PTS 




y 


¥ Mñi 


9 La mayor variedad de libros de mi ero informática, 
capaces de satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 

9 Todo tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a Sinclair QL 


TARJETA DE PEDIDO 


Domicilio de envíos: 


Nombre y apellidos 

Domicilio N.°.. 

C. P Ciudad * Provincia 


Piso Pta.. 


Ruego sírvanse remitirme CONTRA REEMBOLSO los siguientes libros: 


Fecha. 


Fdo.: 


Número 

Cantidad 

TITULO Y AUTOR 

importe 






























ORDENADOR 

PERSONAL PHILIPS 



Microprocesador 
Frecuencia de reloj 

Memoria principal 
Memoria de sistema 
Memoria de video 

Lenguaje de programación 


Z80A 

3.58MHz 

64K RAM 
32 K ROM 
16K RAM 

BASIC expandido de Microsoft 


Salida de Pantalla 
VDP 

Formas de presentación de pantalla 

Modalidad de texto 

Modalidad alta resolución 

Modalidad en color 

Sprites 

Color 


Video y RF 
TMS 9929A 
3 modos 

40 caracteres x 24 líneas/32 caracteres x 24 líneas. 
Matriz de 256x 192 puntos. 

Bloques de 64x48 (matriz de 4X4 puntos por bloque.) 
32 formas definibles/16 colores 
16 colores 


Teclado 

Salida de sonido 
PSG 

lnterface para audiocassette 


73 teclas alfanuméricas y símbolos gráficos 

Terminal de audio. 

AY-3-8910, 8 octavas triple clave 
FSK 1200/2400 


Sistemas bus’’ 

Conexión de mandos de control 


Bus de cartucho/Bus de expansión 
Dos "PORTS” de mandos de control 


t>- 


S. L. Informática 
Aceituno, 8y9 (Edif . San Hermenegildo) 
Teléfono (954) 42 43 56 42 43 52 
Apartado de correos 61 77 
41.003 • SEVILLA 


SCI 


r 


□ Microordenador 59.900 

□ Unidad Disco 500K 81.000 

□ Monitor F/V ó color 27.500 - 49.900 FIRMA: 

□ Cassette. 6.000 

□ Joystick 4.300 

Forma de pago: 

□ Talón □ Contrareembloso □ Tarjeta VISA 
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